home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #12 / Amiga Plus CD - 2002 - No. 12.iso / AmigaOS / Vollversion / MetaView / ARexx-Examples / CD-Cover.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2002-11-17  |  1.2 KB  |  57 lines
  1. /* Wizard for creating CD Covers */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. address metaview.0
  6.  
  7. newpic 21 29 0 CD COVER
  8.  
  9. amf_setfgpen 0 0 0
  10. amf_setbgpen 255 255 255
  11.  
  12. amf_linetype 0
  13. amf_drawline 3667 3390 27150 3390
  14. amf_drawline 3667 16722 27150 16722
  15. amf_drawline 3667 3390 3667 16722
  16. amf_drawline 27150 3390 27150 16722
  17. amf_linetype 1
  18. amf_drawline 4681 3390 4681 16722
  19. amf_drawline 26136 3390 26136 16722
  20.  
  21. amf_linetype 0
  22. amf_drawline 4681 17513 23405 17513
  23. amf_drawline 4681 30959 23405 30959
  24. amf_drawline 4681 17513 4681 30959
  25. amf_drawline 23405 17513 23405 30959
  26.  
  27. amf_setfont 800 0 "CGTimes.font"
  28.  
  29. requeststrings 1 1 TITLE """Please insert CD-Title""" HEADERS """Title"""
  30. CD_TITLE = result
  31.  
  32. say CD_TITLE
  33.  
  34. position = pos('|', CD_TITLE)
  35. wert = substr(CD_TITLE, 1, position - 1)
  36.  
  37. amf_drawtext 4670 16500 90 wert
  38. amf_drawtext 26140 3612 270 wert
  39.  
  40. requeststrings 3 10 TITLE """Please insert Songs""" HEADERS """Title|Author|Time"""
  41. SONG_TITLES = result
  42.  
  43. say SONG_TITLES
  44.  
  45. start = 1
  46. do y=1 to 10
  47.   do x=1 to 3
  48.     position = pos('|', SONG_TITLES, start)
  49.     wert = substr(SONG_TITLES, start, position - start)
  50.     start = position + 1
  51.     amf_drawtext 5000+((x-1)*7500) 4200+((y-1)*1000) 0 wert
  52.   end x
  53. end y
  54.  
  55. redrawpic
  56.  
  57.